home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
031-040
/
amok31
/
environment
/
intuisup.def
< prev
next >
Wrap
Text File
|
1993-11-04
|
924b
|
31 lines
DEFINITION MODULE IntuiSup;
FROM SYSTEM IMPORT ADDRESS;
FROM Intuition IMPORT Gadget, IntuiText, Border, StringInfo, ActivationFlags,
ActivationFlagSet, IDCMPFlagSet, WindowFlagSet,
WindowPtr, ScreenFlagSet;
PROCEDURE InitBorder (VAR Bord : Border; xyData, next : ADDRESS);
PROCEDURE InitStringInfo (VAR Info : StringInfo;
VAR buf, unbuf : ARRAY OF CHAR);
PROCEDURE InitIText (VAR IText : IntuiText; x,y : INTEGER; text : ADDRESS);
PROCEDURE CreateGadget (VAR Gad : Gadget; x,y,w,h,ID : INTEGER; Type:CARDINAL;
next, Info, Bord, Text : ADDRESS;
Activ : ActivationFlagSet);
PROCEDURE CreateWindow(x,y,w,h : INTEGER; if: IDCMPFlagSet; wf: WindowFlagSet;
gad,scr,tit : ADDRESS; typ : ScreenFlagSet) : WindowPtr;
PROCEDURE IDCMPOn (window : WindowPtr; flags : IDCMPFlagSet);
PROCEDURE IDCMPOff (window : WindowPtr);
PROCEDURE ActivWindow () : WindowPtr;
END IntuiSup.Def